home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / riblitzlibs.lha / riblitzlibs / pack / ILBMGrab.asc next >
Text File  |  2002-02-02  |  672b  |  38 lines
  1. ;Pack library (C)1994 Reflective Images
  2. ;Example program
  3. ;By Stephen McNamara
  4. ;Please feel free to use any part of the program
  5. ; in whatever way you feel like
  6.  
  7. ;BEFORE compiling, CD into the directory that you loaded this file from
  8. ; some that the INCBIN can find the graphics file
  9.  
  10. VWait 10
  11.  
  12. ;Get a bitmap
  13. BitMap 0,320,200,5
  14.  
  15. ;Go into Blitz mode
  16. BLITZ
  17. offset.w=0
  18. If DispHeight=256 Then offset=28
  19. Slice 0,44+offset,320,200,$fff8,5,8,32,320,320
  20.  
  21. ;Show our bitmap
  22. Show 0
  23.  
  24. ;Unpack the IFF and grab the palette
  25. ILBMGrab ?pic_dat,0,0
  26.  
  27. ;Use the palette
  28. Use Palette 0
  29.  
  30. ;Wait for mousekey before ending
  31. MouseWait
  32. End
  33.  
  34. INCDIR ""
  35. pic_dat: IncBin "RIPic.iff"
  36.          NPrint "Cudd"
  37.  
  38.